From: Martin Rudalics <rudalics@gmx.at>
Date: Mon, 2 Jul 2007 05:52:28 +0000 (+0000)
Subject: (dired-at-point-prompter): Improve prompt in
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~421^2~18114
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=e14f0b3da9d736efceb8a9e45b70a492cf44317a;p=emacs.git

(dired-at-point-prompter): Improve prompt in
list-directory case.
---

diff --git a/lisp/ffap.el b/lisp/ffap.el
index 5bba729fce3..314d48e9ca8 100644
--- a/lisp/ffap.el
+++ b/lisp/ffap.el
@@ -1793,7 +1793,11 @@ ffap most of the time."
   ;; Extra complication for the temporary highlighting.
   (unwind-protect
       (ffap-read-file-or-url
-       (if ffap-url-regexp "Dired file or URL: " "Dired file: ")
+       (cond
+	((eq ffap-directory-finder 'list-directory)
+	 "List directory (brief): ")
+	(ffap-url-regexp "Dired file or URL: ")
+	(t "Dired file: "))
        (prog1
 	   (setq guess (or guess
                            (let ((guess (ffap-guesser)))